home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 88 / Tiger_Disk_088_20xx_Tiger-Crew-Disk_de_Side_C.d64 / seq-reader [td] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  240b  |  11 lines
  1. 10 poke53280,0:poke53281,0:poke53272,23:print"[147][155]":input"[198]ile-[206]ame ";x$:print"[147]";
  2. 20 open2,8,2,x$+",s,r"
  3. 30 get#2,a$:ifst<>0then100
  4. 40 getc$:ifc$<>" "then90
  5. 50 poke53280,11:getc$:ifc$=" "then80
  6. 60 ifc$="e"then100
  7. 70 goto50
  8. 80 poke53280,0
  9. 90 printa$;:goto30
  10. 100 close2:print:print"...und tschuess...!"
  11.